home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / misc / avmNfax1_33.lha / AVMSuite / rexx / callup.avm < prev    next >
Text File  |  1994-06-24  |  496b  |  20 lines
  1. /* */
  2. parse upper arg number
  3.  
  4. prevdir = pragma('directory', 'avmrexx:')
  5. call open('configfile', 'avm:player.cfg', 'r')
  6. foundServer = 0
  7. do while ~eof('configfile')
  8.   line = readln('configfile')
  9.   parse upper var line variable '=' value
  10.   if variable = 'SERVER' then do
  11.     address rexx 'usebracket.avm' value 'secretary.avm' value number
  12.     foundServer = 1
  13.   end
  14. end
  15.  
  16. call close('configfile')
  17.  
  18. if ~foundServer then say "Couldn't find a server in avm:player.cfg"
  19. call pragma('directory', prevdir)
  20.